home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Transportation / InventorLabs - Transportation.iso / pc / builders / media / netacess / url95.dir / 00006_Script_6 < prev    next >
Text File  |  1996-10-10  |  425b  |  25 lines
  1.  
  2. on exitFrame
  3.   global TheWeb
  4.   
  5.   if not objectP(TheWeb) then
  6.     --
  7.     -- create the Web object
  8.     --
  9.     openXlib "Inetobj"
  10.     set TheWeb = Inetobj(mNew) 
  11.     set WebStatus = TheWeb(mInit)
  12.   end if
  13.   
  14.   if TheWeb(mCheckInstall) < 0 then
  15.     --
  16.     -- Install the web access
  17.     --
  18.     go "InstallWeb"
  19.   else if TheWeb(mGetWebAccess) = 1 then
  20.     go "AOLTest"
  21.   else
  22.     go "Launch"
  23.   end if
  24. end
  25.